home *** CD-ROM | disk | FTP | other *** search
/ Selling To the Government / Selling to the Government.iso / aladdin / aladdin.cdp < prev    next >
Text File  |  1993-04-04  |  1KB  |  40 lines
  1. ; Installation Script for Aladdin
  2. ;
  3. ; Step 0 Tell the user what we are doing....
  4. ;
  5. Ask_Message AbortYN 0 '~m(1,1,1,1)~w(35)~hCDPMenu is about to install Aladdin, the communcations program for GEnie. If you would like to abort the installation Please select No Now.~n~n~kContinue installation?~n~k~i(1)~e &Yes ~e  ~d(2)~e  &No ~e'
  6. If '@Num(AbortYN) = 2' then Abortexit
  7. ;
  8. ; Step 1 Get the target directory for the installation
  9. ;
  10. Ask_Value Target 122 C:\Aladdin '~m(1,1,1,1)~hInstallation Directory~nWhat directory should CDPMenu Install Aladdin to?~nHit enter to accept the default.~n~n~k~I(1)Directory: ~e               ~e'
  11. ;
  12. ; Step 2 Check the directry and if not present create it.
  13. ;
  14. Define_Var Target @AddBacks(Target)
  15. If @IsDir(Target) then DirCreated
  16. MD target
  17. ;
  18. :DirCreated
  19. ;
  20. ; Step 3 Define a logical for target called target to copy the files to
  21. ;
  22. Define_log Target target
  23. ;
  24. ; Step 4 Copy all the Data files from the CDROM directory to the target directory.
  25. ;
  26. Copy  Aladdin:*.* Target:*.*
  27. ;
  28. Ask_Message CopyProg 0 '~m(1,1,1,1)~w(45)~hInstallation Complete~nAladdin Ready, Review the documentation, Change to the Aladdin Directory and type Aladdin to start.~n~n~k~I(1)~eO&k~e'
  29. :NormalExit
  30. Notice 'Installation Compete'
  31. Exit
  32. ;
  33. :ExitFatal
  34. Notice 'Installation Aborted'
  35. FatalExit
  36. ;
  37. :AbortExit
  38. Notice 'Installation Abort by user Request'
  39. Exit
  40.